home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / T / Texx Folder / Shutdown.exec < prev    next >
Encoding:
Text File  |  1993-11-16  |  870 b   |  28 lines  |  [TEXT/TEXX]
  1. /* Shutdown.exec */
  2. say 'Shutdown.exec';
  3. say 'Date of last change - 11/16/93';
  4. address finder;
  5. if rc = 0 then
  6. do   /* Address successfull */
  7.      /* If MS Word temp files exist, move them to the trash */
  8.      /* Set up a path to the system folder */
  9.      path BootDrive() || 'system folder';
  10.      do i = 1 to 4
  11.           if FileExists( 'Word Temp ' || i ) then
  12.                Move Selection 'Word Temp ' || i 0 0 BootDrive() || 'Trash';
  13.      end;
  14.      /* now empty the trash */
  15.         empty trash;
  16.      if rc <> 0 then
  17.          say 'Profile.exec -- Empty Trash failed';
  18.      /* Close all mounted volume windows */
  19.      volumes();
  20.      do i = 2 to volume.1 + 1;
  21.         close window volume.i mainwindow;
  22.      end;
  23. end;
  24. else   /* Address failed, inform user */
  25.       say 'Shutdown.exec -- Address finder failed';
  26. /* insert other commands here */
  27. say 'End of Shutdown.exec';
  28.